home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gd.d64 / startrek.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  205 lines
  1. 10 REM:""************ STARTREK ***********
  2. 20 REM:""* MODIFIED FOR THE COMMODORE 64 *
  3. 30 REM:""**  BY  D. HALL  JANUARY 1983  **
  4. 40 POKE53280,0:POKE53281,0:PRINT"[155]"
  5. 50 DIMD$(6):D$(1)="WARP ENGINES":D$(2)="SCANNERS":D$(3)="PHASER BANKS"
  6. 60 D$(4)="TORPEDO TUBES":D$(5)="SHIELD CONTROL":D$(6)="COMPUTER"
  7. 70 DIMG%(8,8),C$(6),C%(9,2),D%(6),K%(3,3),Q%(8,8)
  8. 80 FORI=1TOVAL(RIGHT$(TI$,2)):R=RND(1):NEXT
  9. 90 DEFFNA(X)=INT(X*RND(1)+1):T0%=(FNA(20)+20)*10:T%=T0%:E%=3000:P%=15:S%=0
  10. 100 PRINT"[147]"SPC(10)"[159]*** STARTREK ***"
  11. 105 PRINT"YOUR MISSION - DESTROY THE KLINGONS"
  12. 106 PRINT"     WITHIN THE TIME SET BY FEDERATION"
  13. 107 PRINT"       CHECK WITH YOUR ONBOARD COMPUTER"
  14. 108 PRINT"           GOOD-LUCK, CAPTAIN  "
  15. 110 X$="[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]
  16. 120 Y$[178]"/>>>>>>>>>>>>>>>>>>>>>>>>EXP
  17. 130 W$="
  18. 140 [150][165]D(D)[178][186]((K%(I,1)[171]S1)[174]2[170](K%(I,2)[171]S2)[174]2):Q1[178][165]A(8):Q2[178]Q1:S1[178]Q1:S2[178]Q1
  19. 160 [140]:[131]1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1
  20. 170 [129]I[178]1[164]9:[129]J[178]1[164]2:[135]C%(I,J):[130]J,I
  21. 180 [129]I[178]1[164]6:D%(I)[178]0:[130]I
  22. 210 B9%[178]0:K9%[178]0:[129]I[178]1[164]8:[129]J[178]1[164]8:K3%[178]0:B3%[178]0:[139] [187](1)[179].8[167]270
  23. 250 K3%[178][165]A(3):K9%[178]K9%[170]K3%
  24. 270 [139][187](1)[179].96[167]300
  25. 280 B3%[178]1:B9%[178]B9%[170]1
  26. 300 S3%[178][165]A(5):G%(I,J)[178]K3%[172]100[170]B3%[172]10[170]S3%:[130]J,I
  27. 340 [139] K9%[178]0[176]B9%[178]0[167]210
  28. 360 [139]Q1[177][178]1[167]380
  29. 370 S1[178]1:Q1[178]1
  30. 380 [139]Q1[179][178]8[167]400
  31. 390 S1[178]8:Q1[178]8
  32. 400 [139]Q2[177][178]1[167]420
  33. 410 S2[178]1:Q2[178]1
  34. 420 [139]Q2[179][178]8[167]440
  35. 430 S2[178]8:Q2[178]8
  36. 440 K3%[178]G%(Q1,Q2)[173]100:B3%[178](G%(Q1,Q2)[173]100[171]K3%)[172]10:S3%[178]G%(Q1,Q2)[171]B3%[172]10[171]K3%[172]100
  37. 520 [129]I[178]1[164]3:[129]J[178]1[164]3:K%(I,J)[178]0:[130]J,I
  38. 530 [129]I[178]1[164]8:[129]J[178]1[164]8:Q%(I,J)[178]0:[130]J,I
  39. 540 Q%(S1,S2)[178]1:[139]K3%[178]0[167]620
  40. 560 [129]I[178]1[164]K3%:[141]3500
  41. 570 Q%(R1,R2)[178]2:K%(I,1)[178]R1:K%(I,2)[178]R2:K%(I,3)[178]200:[130]
  42. 620 [139]B3%[178]0[167]650
  43. 630 [141]3500
  44. 640 Q%(R1,R2)[178]4
  45. 650 [129]I[178]1[164]S3%:[141]3500
  46. 670 Q%(R1,R2)[178]3:[130]
  47. 690 [141]2600
  48. 700 [153]W$;:[133]"SYSCOMMAND:LIST";A%:[153]W$                          "
  49. 710 PRINTW$"                         "
  50. 711 FORI=1TO9:PRINTSPC(14)"                         ":NEXT:PRINTW$
  51. 715 IFA%<0ORA%>6THEN700
  52. 720 IFA%<1ORA%>5THEN780
  53. 730 R1=A%+1:IFD%(R1)>=0THEN780
  54. 760 PRINTSPC(14)D$(R1):PRINTSPC(14)"NOT OPERATIONAL.":GOTO700
  55. 780 ONA%+1GOTO890,1520,1640,1800,2200,3010,3550
  56. 890 PRINTSPC(14);:INPUT"COURSE (1-9):";C1:IFC1<1ORC1>9THEN700
  57. 920 PRINTSPC(14);:INPUT"WARP FACTOR (1-64):";W1%:IF W1%<=0ORW1%>64THEN700
  58. 950 IFD%(1)>=0ORW1%<=4THEN980
  59. 960 PRINTSPC(14)"ENGINES ARE DAMAGED;
  60. 965 [153][166]14)"MAX. SPEED IS WARP 4.":[137]920
  61. 980 [139]E%[171]W1%[177]0[167]1030
  62. 990 [139]S%[179]1[167]2470
  63. 1000 [153][166]14)"YOU HAVE ONLY"E%"UNITS.":[153][166]14)"I SUGGEST CROSS-CIRCUIT
  64. 1010 PRINTSPC(14)"FROM SHIELDS WHICH HAVE":PRINTSPC(14)S%"UNITS.":GOTO700
  65. 1030 FORI=1TO6:IFD%(I)>=0THEN1060
  66. 1050 D%(I)=D%(I)+1
  67. 1060 NEXT
  68. 1070 IFFNA(10)<=9THEN1074
  69. 1072 GOSUB1080
  70. 1074 IFW1%<16THEN1120
  71. 1076 GOSUB1080
  72. 1078 GOTO1120
  73. 1080 R=FNA(6):D%(R)=D%(R)-FNA(5)
  74. 1110 PRINTSPC(14)"DAMAGE CONTROL REPORTS ":PRINTSPC(14)D$(R)" DAMAGED.":RETURN
  75. 1120 Q%(S1,S2)=0:X=S1:Y=S2:X1%=C%(C1,1):X2%=C%(C1,2)
  76. 1190 FORI=1TOW1%:S1=S1+X1%:S2=S2+X2%:IFS1<1ORS1>8ORS2<1ORS2>8THEN1360
  77. 1230 IF Q%(S1,S2)=0THEN1270
  78. 1240 S1=S1-X1%:S2=S2-X2%:GOTO1280
  79. 1270 NEXT
  80. 1280 Q%(S1,S2)=1:E%=E%-W1%:IFW1%<8THEN690
  81. 1340 T%=T%+1:IFT%>T0%+30THEN2500
  82. 1350 GOTO690
  83. 1360 X=Q1*8+X+X1%*W1%:Y=Q2*8+Y+X2%*W1%
  84. 1380 Q1=INT(X/8):Q2=INT(Y/8):S1=INT(X-Q1*8+.5):S2=INT(Y-Q2*8+.5)
  85. 1420 IFS1>0THEN1450
  86. 1430 Q1=Q1-1:S1=8
  87. 1450 IFS2>0THEN1480
  88. 1460 Q2=Q2-1:S2=8
  89. 1480 T%=T%+1:E%=E%-W1%+5:IF T%>T0%+30THEN2500
  90. 1510 GOTO360
  91. 1520 PRINT"[154] SCANNER [146]"
  92. 1530 PRINT"[176][192][192][192][178][192][192][192][178][192][192][192][174]":FORI=Q1-1TOQ1+1:FORJ=Q2-1TOQ2+1
  93. 1550 IFI<1ORI>8ORJ<1ORJ>8THEN1588
  94. 1570 N$=STR$(G%(I,J)):M=LEN(N$)-1:N$=RIGHT$(N$,M):IFM=1THENN$="00"+N$:GOTO1590
  95. 1586 IFM=2THENN$="0"+N$:GOTO1590
  96. 1587 IFM=3THENN$=N$:GOTO1590
  97. 1588 N$="000"
  98. 1590 PRINT"[221]"N$;:NEXTJ
  99. 1600 PRINT"[221]":PRINT"[171][192][192][192][219][192][192][192][219][192][192][192][179]":NEXTI
  100. 1610 PRINT"[145][173][192][192][192][177][192][192][192][177][192][192][192][189]":PRINT" LONG RANGE[155]":GOTO700
  101. 1640 IFK3%=0THEN2350
  102. 1650 PRINTRIGHT$(W$,14)"ENERGY AVAILABLE="E%
  103. 1660 PRINTSPC(14):INPUT"NUMBER TO FIRE:";X%:IFX%<1THEN700
  104. 1690 IFE%-X%<0THEN1660
  105. 1710 E%=E%-X%:FORI=1TO3:IFK%(I,3)=0THEN1780
  106. 1730 H%=X%/K3%/(FND(D)):K%(I,3)=K%(I,3)-H%:PRINTSPC(13)H%"UNIT HIT ON KLINGON
  107. 1760 [139]K%(I,3)[177]0[167]1780
  108. 1770 [141]2020
  109. 1780 [130]
  110. 1790 [137]2080
  111. 1800 [139]P%[177]0[167]1830
  112. 1810 [153][166]14)"ALL TORPEDOES EXPENDED.":[137]700
  113. 1830 [153][166]14):[133]"TORPEDO COURSE (1-9):";C1:[139]C1[179]1[176]C1[177]9[167]700
  114. 1870 X1%[178]C%(C1,1):X2%[178]C%(C1,2):X[178]S1:Y[178]S2:P%[178]P%[171]1
  115. 1930 X[178]X[170]X1%:Y[178]Y[170]X2%:[139]X[179]1[176]X[177]8[176]Y[179]1[176]Y[177]8[167]2180
  116. 1960 [139]Q%([181](X),[181](Y))[178]0[167]1930
  117. 1980 [129] I[178]1[164]3:[139][181](X)[178]K%(I,1)[175][181](Y)[178]K%(I,2)[167]2075
  118. 1990 [130]
  119. 2010 [137]2120
  120. 2020 R1[178]K%(I,1):R2[178]K%(I,2):K%(I,3)[178]0:Q%(R1,R2)[178]0:G%(Q1,Q2)[178]G%(Q1,Q2)[171]100
  121. 2030 [153][166]14)"OPEN***KLINGON  DESTROYED***LISTWAIT":K3%[178]K3%[171]1:K9%[178]K9%[171]1:[139]K9%[178]0[167]2560
  122. 2050 [139][165]D(D)[177][178]6[176]A%[178]2[137]2070
  123. 2060 H%[178](6[171][165]D(D))[172]18:S%[178]S%[171]H%:[153][166]14)"CLR";H%"CMD URGS PHOTON FEEDBACKLIST"
  124. 2065 [139]S%[179]0[167]2440
  125. 2070 [142]
  126. 2075 [141]2020
  127. 2080 [141]2370
  128. 2090 [141]2600
  129. 2100 [137]700
  130. 2120 [139]Q%(X,Y)[179][177]3[167]2150
  131. 2130 [153][166]14)"YOU CAN'T DESTROY STARS!":[137]2180
  132. 2150 [153]"LOAD        ***STARBASE DESTROYED***
  133. 2160 PRINT"   YOU ARE HEREBY RELIEVED OF DUTY!!":GOTO2530
  134. 2180 PRINTSPC(14)"TORPEDO MISSED.":GOTO2080
  135. 2200 PRINTSPC(14)"ENERGY AVAILABLE="E%+S%
  136. 2210 PRINTSPC(14);:INPUT"ENERGY TO SHIELDS:";X%:IFX%<0THEN700
  137. 2240 IFE%+S%-X%<0THEN2210
  138. 2250 E%=E%+S%-X%:S%=X%:GOSUB2600
  139. 2260 GOTO700
  140. 2280 PRINTSPC(16)"DEVICE          STATUS
  141. 2285 [153][166]16)"VALVALVALVALVALVALCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEVALVALVALVALVALVAL
  142. 2320 FORR1=1TO6:PRINTSPC(16)D$(R1)TAB(31)D%(R1):NEXT
  143. 2340 GOTO700
  144. 2350 PRINTSPC(14)"SENSORS REPORT NO
  145. 2351 [153][166]14)"KLINGONS IN QUADRANT.":[137]700
  146. 2370 [139]C$[178]"DOCKED"[167]2460
  147. 2380 [139]K3%[178]0[167]2460
  148. 2390 [129]I[178]1[164]3:[139]K%(I,3)[178]0[167]2450
  149. 2410 H%[178]K%(I,3)[173]([165]D(D)):S%[178]S%[171]H%:[153][166]13)H%"UNIT HIT ON STARSHIP
  150. 2440 IFS%<0THENPRINT"[147]     FATAL ERROR!! WITH NO SHIELDS":GOTO2520
  151. 2450 NEXT
  152. 2460 RETURN
  153. 2470 PRINT"[147]            ***FATAL ERROR***"
  154. 2480 PRINT"THE ENTERPRISE IS DEAD IN SPACE AND MUSTBE EVACUATED!":GOTO2530
  155. 2500 PRINT"[147]"SPC(5)"TOO LATE!! IT IS STARDATE"T%"!":GOTO2530
  156. 2520 PRINT"   THE ENTERPRISE HAS BEEN DESTROYED!
  157. 2530 [153]"    THE FEDERATION WILL BE CONQUERED"
  158. 2540 [153]"   BY THE INVADING KLINGON BATTLE FLEET":[137]3560
  159. 2560 [153]"LOAD   THE LAST KLINGON BATTLE CRUISER  "
  160. 2570 [153]"         HAS BEEN DESTROYED!!        "
  161. 2580 [153]"   THE FEDERATION HAS BEEN SAVED!!  ":[137]3560
  162. 2600 [129]I[178]S1[171]1[164]S1[170]1:[129]J[178]S2[171]1[164]S2[170]1
  163. 2620 [139]I[179]1[176]I[177]8[176]J[179]1[176]J[177]8[167]2640
  164. 2630 [139]Q%(I,J)[178]4[167]2670
  165. 2640 [130]J,I:[137]2730
  166. 2670 C$[178]"DOCKED":E%[178]3000:P%[178]15:[129]I[178]1[164]6:D%(I)[178]0:[130]
  167. 2710 S%[178]0:[137]2810
  168. 2730 [139]K3%[177]0[167]2780
  169. 2750 [139] E%[179]300[167]2800
  170. 2760 C$[178]"GREENWAIT":[137]2810
  171. 2780 C$[178]"*RED*WAIT":[137]2810
  172. 2800 C$[178]"SYSYELLOWWAIT"
  173. 2810 [153][200](W$,17);"                                 "
  174. 2820 [153]"CONT       QUADRANT "[199](Q1[170]64)Q2:[153]"LIST"X$:L%[178]0:[141]3330
  175. 2840 [141]3330
  176. 2860 [153][166]26)"ONCLRSTARDATE"T%:[141]3330
  177. 2880 [153][166]26)"ONSYSSTATUS "C$:[141]3330
  178. 2900 [153][166]26)"ONCONTENERGY"E%:[141]3330
  179. 2920 [153][166]26)"ONFORTORPEDOES"P%:[141]3330
  180. 2940 [153][166]26)"ONVERIFYSHIELDS"S%:[141]3330
  181. 2960 [153][166]26)"ONDEFKLINGONS"K9%:[141]3330
  182. 2980 [153]Y$:[142]
  183. 3010 [153][166]14)"SYSCOMPUTER ACTIVE AND
  184. 3015 PRINTSPC(14)"AWAITING COMMAND."W$;:INPUT"COMMAND:[155]";A%
  185. 3020 PRINTW$"                         "
  186. 3025 FORI=1TO8:PRINTSPC(14)"                         ":NEXT:PRINTW$
  187. 3029 IFA%<1ORA%>3THEN3010
  188. 3030 ONA%GOTO2280,3310,3580
  189. 3310 GOSUB2600
  190. 3320 GOTO700
  191. 3330 L%=L%+1:PRINT"[155][171]";:FORI=1TO8:Z$="[155][219][219][219][155]<*>[155]***[155][219][159]+[155][219][215]*[215][155]"
  192. 3370 PRINT""MID$(Z$,Q%(L%,I)*5+1,5);:NEXT
  193. 3390 PRINT"[179][146]             "
  194. 3410 RETURN
  195. 3500 R1=FNA(8):R2=FNA(8)
  196. 3510 IFQ%(R1,R2)<>0THEN3500
  197. 3540 RETURN
  198. 3550 PRINT"[147]"LEFT$(W$,12)"YOUR RESIGNATION HAS BEEN ACCEPTED!
  199. 3560 [133]"ANOTHER GAME";A$:[139] A$[178]"Y"[137]80
  200. 3570 [153]"OK. IT WAS GREAT COMPUTING FOR YOU!":[128]
  201. 3580 [153][166]14)"MISSION MUST BE COMPLETED
  202. 3590 PRINTSPC(14)"WITHIN"T0%+30-T%"STARDATES":GOTO700
  203. 4001 002002
  204. 6005 003001
  205.